home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / mcode_01 / source / basics / gettext.s < prev    next >
Text File  |  1995-04-27  |  918b  |  25 lines

  1. * Program     : Read a strin g from the keyboard
  2. * Author    : Stephen McNabb
  3. * Creation date    : 15th February 1995
  4. * Last update    : 15th February 1995
  5. * Parameters    : Length of string to be read
  6. * Output    : Length of string read followed by actual string
  7.  
  8. start:    move.l    #length,-(sp)    /move length of string to be read onto stack
  9.     move.w    #$A,-(sp)    /use Cconrs() function
  10.     trap    #1        /use gemdos
  11. end:    addq.l    #6,sp        /tidy up stack
  12.  
  13. *** Program Data ***
  14.  
  15. length:    dc.b    20        /length of string to be read   -+
  16. read:    dc.b    0        /length of string actually read    | keep together
  17. string:    ds.b    21        /string read               -+
  18.  
  19. * Note : Keep these three statements together and always make sure
  20. *      that the length of 'string' is one more than the number of
  21. *     length of the string you want to read. This is to ensure
  22. *     that there the string has a null character at the end of it
  23. *     and can be displayed.
  24.  
  25. *** End of file ***